home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
imb9008.zip
/
TABLMNGR.BI
< prev
next >
Wrap
Text File
|
1990-07-12
|
737b
|
22 lines
DECLARE FUNCTION SymCreateTbl% (Tbl$, Parms AS ANY, PreSizeRecs%)
DECLARE FUNCTION SymCreate$ (Sym$, Parms AS ANY)
DECLARE FUNCTION SymPos% (Tbl$, Sym$, Parms AS ANY)
DECLARE FUNCTION SymDefine% (Tbl$, Sym$, Parms AS ANY)
DECLARE FUNCTION SymDefined% (Tbl$, Sym$, Parms AS ANY)
DECLARE FUNCTION SymGet$ (Tbl$, SymNbr%, Parms AS ANY)
DECLARE FUNCTION SymPad$ (Sym$, Parms AS ANY)
DECLARE FUNCTION SymUnDefine% (Tbl$, Sym$, Parms AS ANY)
DECLARE SUB SymDisplayTbl (Tbl$, Parms AS ANY)
'BASIC include file for fixed-length table manager
TYPE SymbolTableParameters
NbrEntries AS INTEGER
NbrEmpty AS INTEGER
SWidth AS INTEGER
Delim AS STRING * 1
TblLength AS INTEGER
END TYPE